82 PRINT"[147]":POKE53280,0:POKE53281,0:POKE649,0
109 IFA=0THENA=1:LOAD"HOTEL.LETTERS",8,1
110 GOSUB590:POKE53272,48:POKE56576,0:POKE648,204:POKEV+21,0:GOTO190
120 FORA=1TO36:PRINT"[185]";:NEXTA:PRINT""
130 PRINTTAB(8)"[169][146][169]  [169][146][169] [169]   [146]  [169]    [146][169] [169]   [146][169] [169][146][169]"
140 PRINTTAB(7)"[169][146][169]  [169][146][169] [169][146][169] [169][146][169]   [169][146][169]   [169][146][169]    [169][146][169]"
150 PRINTTAB(6)"[169]    [146][169] [169][146][169] [169][146][169]   [169][146][169]   [169]  [146][169]  [169][146][169]"
160 PRINTTAB(5)"[169][146][169]  [169][146][169] [169][146][169] [169][146][169]   [169][146][169]   [169][146][169]    [169][146][169] "
170 PRINTTAB(4)"[169][146][169]  [169][146][169]     [146][169]   [169][146][169]   [169]   [146][169] [169]   [146][169]"
180 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":RETURN
190 PRINT"[147]";:GOSUB120:PRINT"";
195 FORA=1TO40:PRINT"[184]";:NEXTA
200 PRINT"  WRITTEN BY CHRISTIAN FRANZKE IN 1989 "
210 PRINT"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
220 PRINT"[154][169]         "SPC(19)"[169]         [146]"
225 A$="[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]"
230 FORA=1TO3:PRINTLEFT$(A$,11)"[154] [146]"SPC(19)LEFT$(A$,11)"[154] [146]":NEXTA
240 PRINTLEFT$(A$,11)"[154]                    "LEFT$(A$,11)"[154] [146]"
250 PRINTA$"[154] [146]"
260 PRINTLEFT$(A$,15)" CALIFORNIA "LEFT$(A$,15)"[154] [146]"
270 PRINTA$"[154] [146]":PRINTA$"[154] [146]"
280 PRINTLEFT$(A$,20)"[146][207][208]"LEFT$(A$,20)"[154][193][146]"
300 PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][211][216][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][154][209][146]"
310 GOTO330
320 PRINT""TAB(13)" [192][192] RETURN [192][192] [146]":RETURN
330 A=0:B=1
340 A=A+B:ONAGOSUB400,410,420,430,440,450
350 GOSUB320:FORT=1TO100:NEXTT
360 POKE649,1:GETA$:IFA$=CHR$(13)THENPOKE649,0:GOTO455
370 IFA=6THENB=-1
380 IFA=0THENB=1
390 GOTO340
400 PRINT"[144]":RETURN
410 PRINT"":RETURN
420 PRINT"":RETURN
430 PRINT"":RETURN
440 PRINT"[158]":RETURN
450 PRINT"":RETURN
455 PRINT"";:FORA=1TO44:PRINT"          ";:NEXTA:PRINT
457 PRINT""TAB(8)"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
460 PRINTTAB(8)"[145][221] SPIELREGELN ? (J/N)  [221]"
461 PRINTTAB(8)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
462 POKE649,1:GETA$:IFA$<>"J"ANDA$<>"N"GOTO462
463 POKE53272,21:POKE56576,151:POKE648,4
464 IFA$="N"GOTO550
466 IFA$="J"THENPRINT"[147]":GOSUB672:GOSUB470:GOTO510
468 GOTO462
470 PRINT"----------------------------------------";
480 POKEV+21,8:PRINT""TAB(15)"N L E I T U N G"
490 PRINT"----------------------------------------";
500 PRINT:RETURN
510 READA$:IFA$="XXX"GOTO540
520 IFA$="HEAD"THENPRINT" ";:POKE653,0:WAIT653,1:PRINT"[147]":GOSUB470:GOTO510
530 PRINT"";:FORA=1TOLEN(A$):PRINTMID$(A$,A,1)"*[157]";:FORB=1TO10:NEXTB,A:PRINT" "R$:GOTO510
540 PRINT" "CHR$(141):POKE653,0:WAIT653,1
550 POKEV+21,0:PRINT"[147]":GOSUB120:PRINT""TAB(11)"[192]  PLEASE  WAIT  [192]"
580 LOAD"HOTEL.START",8:RUN
590 PRINT"[147]":V=53248:POKE2042,13:FORN=0TO62:READQ:POKE832+N,Q:NEXTN
600 POKEV+23,4:POKEV+29,4:POKEV+41,6
610 POKEV+4,150:POKEV+5,100:POKEV+21,4:A=0:B=1
620 A=A+B:ONAGOSUB400,410,420,430,440,450
630 GOSUB670:FORT=1TO100:NEXTT
640 IFA=6THENB=-1
650 IFA=0THENFORT=1TO200:NEXTT:RETURN
660 GOTO620
670 PRINT""TAB(8)"FRANZKES SOFTWARE HOUSE":PRINTTAB(16)"PRESENTS:":RETURN
672 POKE2043,13:FORN=0TO62:READQ:POKE832+N,Q:NEXTN
673 POKEV+23,8:POKEV+29,8:POKEV+42,5:POKEV+6,95:POKEV+7,50:RETURN
680 DATA 0,0,0
690 DATA 0,0,0
700 DATA 0,24,0
710 DATA 0,126,0
720 DATA 1,195,128
730 DATA 7,0,224
740 DATA 28,0,56
750 DATA 112,0,14
760 DATA 192,0,3
770 DATA 255,190,231
780 DATA 255,255,102
790 DATA 96,99,102
800 DATA 100,96,102
810 DATA 124,126,126
820 DATA 124,63,126
830 DATA 100,3,102
840 DATA 96,99,102
850 DATA 96,127,102
860 DATA 240,62,231
870 DATA 0,0,0
880 DATA 255,255,255
885 REM ==========
890 DATA 0,0,0
895 DATA 0,0,0
900 DATA 0,0,0
905 DATA 0,60,0
910 DATA 0,231,0
915 DATA 1,129,128
920 DATA 1,0,128
925 DATA 1,0,128
930 DATA 1,0,128
935 DATA 1,0,128
940 DATA 1,114,128
945 DATA 1,153,128
950 DATA 1,207,128
955 DATA 6,129,96
960 DATA 11,129,208
965 DATA 26,129,88
970 DATA 16,129,8
975 DATA 25,129,152
980 DATA 15,0,240
985 DATA 0,0,0
990 DATA 0,0,0
1000 DATA  "[159]ZU IHREM 18.GEBURTSTAG ENTSCHLIESSEN"
1010 DATA  "SIE SICH,  EINE AUTOSAMMLUNG ANZULE-"
1020 DATA  "GEN.  UM DAS ZU FINANZIEREN, ERRICH-"
1030 DATA  "TEN SIE EIN HOTELIMPERIUM IN DER GE-"
1040 DATA  "SAMTEN WELT."
1050 DATA  "[144][159]AUS EINER ERBSCHAFT ERHALTEN SIE EIN"
1060 DATA  "STARTKAPITAL VON 75000 DM UND EINIGE"
1070 DATA  "AKTIEN. - PASSEN SIE IN IHREN HOTELS"
1080 DATA  "AUF,  DASS SIE  NICHT ZUVIEL ODER ZU"
1090 DATA  "WENIG PERSONAL HABEN.
1100 [131]  "STOP                SHIFT WAIT"
1110 [131]  "HEAD"
1120 [131]  "OPENES SPIELEN 2-4 SPIELER MIT."
1130 [131]  "MIT 'REISEN' BEENDEN SIE DEN ZUG UND"
1140 [131]  "KOENNEN ZU EINER ANDEREN  STADT REI-"
1150 [131]  "SEN.  - GESTEUERT KANN MIT DEM  JOY-"
1160 [131]  "STICK IN PORT 2 ODER MIT DEN CURSOR-"
1165 [131]  "TASTEN + RETURN (=KNOPF)."
1170 [131]  "STOPOPENDAS  SPIEL ENDET  DAMIT,  DASS JEDES"
1180 [131]  "AUTO EIN MAL VERTRETEN IST. GEWINNER"
1190 [131]  "IST  DERJENIGE MIT DER GROESSTEN AU-"
1195 [131]  "TOSAMMLUNG."
1200 [131] "STOP                SHIFT WAIT"
1210 [131]  "XXX"